home *** CD-ROM | disk | FTP | other *** search
/ Summit / Summit Recordable CD-ROM.ISO / screen / product.spr < prev    next >
Encoding:
Text File  |  1994-08-12  |  4.9 KB  |  168 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 08/12/94             PRODUCT.SPR               12:47:32 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. *       *********************************************************
  35. *       *                                                         
  36. *       *               Windows Window definitions                
  37. *       *                                                         
  38. *       *********************************************************
  39. *
  40.  
  41. IF NOT WEXIST("_qsi0rf26x")
  42.     DEFINE WINDOW _qsi0rf26x ;
  43.         AT  0.000, 0.000  ;
  44.         SIZE 13.000,48.400 ;
  45.         TITLE "Products" ;
  46.         FONT "MS Sans Serif", 8 ;
  47.         FLOAT ;
  48.         CLOSE ;
  49.         MINIMIZE ;
  50.         SYSTEM
  51.     MOVE WINDOW _qsi0rf26x CENTER
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *         PRODUCT/Windows Setup Code - SECTION 2          
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. #REGION 1
  63. ProdSlct = APROD[1,1]
  64.  
  65. *       *********************************************************
  66. *       *                                                         
  67. *       *              PRODUCT/Windows Screen Layout              
  68. *       *                                                         
  69. *       *********************************************************
  70. *
  71.  
  72. #REGION 1
  73. IF WVISIBLE("_qsi0rf26x")
  74.     ACTIVATE WINDOW _qsi0rf26x SAME
  75. ELSE
  76.     ACTIVATE WINDOW _qsi0rf26x NOSHOW
  77. ENDIF
  78. @ 0.077,0.200 GET M.ProdSlct ;
  79.      PICTURE "@&N" ;
  80.     FROM APROD ;
  81.     SIZE 12.692,47.600 ;
  82.     DEFAULT 1 ;
  83.     FONT "MS Sans Serif", 8 ;
  84.     VALID _qsi0rf30i()
  85.  
  86. IF NOT WVISIBLE("_qsi0rf26x")
  87.     ACTIVATE WINDOW _qsi0rf26x
  88. ENDIF
  89.  
  90. READ CYCLE ;
  91.     DEACTIVATE .T.
  92.  
  93. RELEASE WINDOW _qsi0rf26x
  94.  
  95. #REGION 0
  96.  
  97. SET READBORDER &rborder
  98.  
  99. IF m.talkstat = "ON"
  100.     SET TALK ON
  101. ENDIF
  102. IF m.compstat = "ON"
  103.     SET COMPATIBLE ON
  104. ENDIF
  105.  
  106.  
  107. *       *********************************************************
  108. *       *                                                         
  109. *       * _QSI0RF30I           M.ProdSlct VALID                   
  110. *       *                                                         
  111. *       * Function Origin:                                        
  112. *       *                                                         
  113. *       * From Platform:       Windows                            
  114. *       * From Screen:         PRODUCT,     Record Number:    2   
  115. *       * Variable:            M.ProdSlct                         
  116. *       * Called By:           VALID Clause                       
  117. *       * Object Type:         List                               
  118. *       * Snippet Number:      1                                  
  119. *       *                                                         
  120. *       *********************************************************
  121. *
  122. *=SYS(2017)
  123. FUNCTION _qsi0rf30i     &&  M.ProdSlct VALID
  124. #REGION 1
  125. ACTIVATE SCREEN
  126.  
  127. PRODSLCT = UPPER(ALLTRIM(PRODSLCT))
  128.  
  129. SELECT *;
  130.  FROM Data;
  131.  WHERE Data.manufact = MANSLCT;
  132.    AND Data.product = PRODSLCT;
  133.  INTO CURSOR TEMP2
  134.  
  135. Count to M.Count
  136.  
  137.     
  138. DIMENSION PAGE[1,1], Temp[1,1]
  139.  
  140. COPY TO ARRAY TEMP FIELDS Page
  141. CLOSE DATABASES
  142. M.Count = ALEN(TEMP, 1)
  143. SET EXACT OFF
  144. Current = 0
  145.  
  146. FOR i = 1 to M.Count
  147.  
  148.     String = ALLTRIM(STR(TEMP[i,1]))
  149.     FOUND = ASCAN(PAGE, String)
  150.  
  151.     If FOUND = 0   && AND ISDIGIT(String) = .T.
  152.         Current = Current + 1
  153.         DIMENSION PAGE[Current, 1]
  154.         PAGE[Current,1] = String
  155.     ENDIF
  156.  
  157. ENDFOR    
  158. =ASORT(PAGE)
  159. RELEASE MEMVAR LIKE TEMP
  160. CLOSE DATABASES
  161. M.Count = ALEN(PAGE, 1)
  162. PASS = (page[1,1] + '.spr')
  163.  
  164. IF M.Count = 1
  165.     do screen.exe with PASS
  166. ELSE
  167.     DO NUMBER.SPR
  168. ENDIF